home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / entask / endtask.frm < prev    next >
Text File  |  1995-05-08  |  1KB  |  41 lines
  1. VERSION 2.00
  2. Begin Form Form2 
  3.    Caption         =   "Unload Event on End Task demo"
  4.    ClientHeight    =   1095
  5.    ClientLeft      =   2085
  6.    ClientTop       =   2640
  7.    ClientWidth     =   4635
  8.    Height          =   1500
  9.    Left            =   2025
  10.    LinkMode        =   1  'Source
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   1095
  13.    ScaleWidth      =   4635
  14.    Top             =   2295
  15.    Width           =   4755
  16.    Begin Label Label1 
  17.       Caption         =   "Select End Task from the Task List"
  18.       Height          =   380
  19.       Left            =   720
  20.       TabIndex        =   0
  21.       Top             =   360
  22.       Width           =   3135
  23.    End
  24. End
  25. Declare Sub SetEndTaskHook Lib "ENTASK.DLL" (ByVal hWnd As Integer)
  26. Declare Sub UndoEndTaskHook Lib "ENTASK.DLL" (ByVal zero As Integer)
  27.  
  28. Sub Form_Load ()
  29. Call SetEndTaskHook(hWnd)
  30. End Sub
  31.  
  32. Sub Form_Unload (Cancel As Integer)
  33.  i% = MsgBox("QUIT???", 1)
  34.  If i% = 2 Then
  35.    Cancel = -1
  36.  Else
  37.    Call UndoEndTaskHook(0)
  38.  End If
  39. End Sub
  40.  
  41.